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(57) Abstract 

A defined unit identifier which is an image necessary for a software to be 
produced is determined. Words existing in the defmed unit identifier are picked up 
and a processing routine diagram, in which alt pallets necessary for the software are 
arranged along the flowchart, is produced based on the defmed unit identifier, llien a 
necessary file is determined in accordance with the picked-up words and the 
produced processing routine diagram, Then first basic logics for performing the 
image editing or the file editing, second basic logics for determining a processing 
routine and third basic logics for updating the file are produced for all the picked-up 
words. Then three types of pallets connecting the first, second and third basic logics 
are produced for every image and pallet functions which execute the basic logics in 
the respective pallets autonomously with significance are produced. An image based 
upon the pallet function concerning the first basic logics is transmitted and the 
picture is received and the pallet function concerning the second basic logics is 
executed. This process is one of a plurality of process routes. The above mentioned 
pallet functions are incorporated into a pallet chain function which has a structure for 
determining one processing routine among a plurality of processing routines 
including the processing routine where the pallet function concerning the third logics 
is executed in accordance with the result of execution of the pallet function 
concerning the second logics. This software does not require to produce basic logics 
for all the words and, if basic logics arc produced for some of the words, the 
operation is performed within the range. 
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WO 2 irag^fg + 
* LP0004 P F 4 • #SS 

ittttittttitttttttiUttiiiitttititittitttiiiittttiiitttttttittitt 

LP000|-SEC^SECTION. 



LP0004-START 

NO. , 
GO TO 



IF NOT ( PRKEY NO OF W0204(PS) = 04 ) 
LP0004-EXIT 



END-IF. ^ 

* L01540 0 P C D (LP0004) ^ 

??^1Sl540^0F^KH20m = SPACE 
MOVE I TO ERR-INF 

R {§ IIUU OF W0204(PS) 

MOVE SPACE TO A0I560 OF KH201B(PS) 
ELSE ' 

* OPEN K213DL01 NOT = T 

OPEN INPUT K213DL01 
IF FLSTSl NOT = ZERO 

MOVE 8800 TO MSG-NO 

MOVE "1 TO ERR-INF 

GO TO MAIN-END 
ELSE 

MOVE "1" TO K213DL01-0PEN 
END-IP 
END-IF 

* MOVE A01540 OF KH201E(PS) TO ff01540 
SI ?A fnWoF K213DL01-RBC 

MOVE 100 TO SGLCODE 
END-READ 

IF SGLCODE = ZERO 

MOVE SKD792 OF K213DL01-REC TO R-W01560 
END-IP 

* IF SGLCODE = ZERO „^ 

MOVE R-W01560 TO INDATA 

MOVE 16 TO OUTKETA 

MOVE°'^OUTDAfA'''^TO AD1560 OF KH201E(PS) 

ELSE 

MOVE "r TO ERR-INF 

il8!i l^V ?S ffis -C OF W0204(PS) 
HOVE SPACE TO A01560 0F-RH201E(PS) 
END-IF 
END- IF. 
END-IF 

If'^"cSR-LOCK of W0204(PS) = "A12590- 
MOVE 3 TO ROOTB-NO 

MOVE ^KH600Q" TO L-CAMEN-NO 

END" I F 

MOVE 3 TO ROUTE-NO 

MOVE "KHGOOQ" TO L-GAMBN-NO 
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WO 3 : (iffiS^ 

***************** 7--- (Di^tb M*»**»**M**»*»»*»*»»MM*Mm»»»*i* 
**********t******************t»»*t*********,l»»t»^ljm^jj^ 

* ^ KH201E ^&A:h iMM) I 

IF GAMBN-NO OF CRTL-AREA = "KH201E" 
t***ttttttt*tt*tt***t**t*i*t*****t***i**t*tt**t* ****** tttt* 
D DISPLAY :KH201E LAYT-FLC=: LAYH-FLC 
D DISPLAY "KH201E LAYT-FLG=" LAYT-FLG 

IL.LAYH-FLG. = "K 
»**»*gfi#3-K YD1179KH201E1E 
MOVE A0I540 OF KH201E(STG1) 
, JO KD1179 OF EF-ARBA 
MM* i^iojpfi YD1839KH201E1E 
A07580 OF KH201E(STG1) 



*****g,5lla^°3-T39 OF EF-ARBA 
MOVE A12590 OF KH201E(STG1) 



YD1847KH201E1E 



ncn.o. »,aixrTP ^01847 OF EF-ARBA 

960424***** aj?|NO YD1844KH201E1E 
*****"'..JP'^560 OF KH201E(STG1) IS NUMERIC 
***** MOVE A07560 OF KH201E(STG1) 
***** TO KD1844 OF EP-AREA 



*****ENp-IF 
960513*****. g^N 0 



***** 5C IN U 

*****ir A07560 OF KH201E(STG1) 
***** MOVE A07560 OF KH201B" 
***** TO KD4029 OF EP 

*****EDN-iF 
960513***** i.»NO 

*****1F AD4800 OF KH201E(STG1) 
***** MOVE A04800 OF RH201E{STG1) 
*****n.,n .n ^0 KD4028 OF EF-AREA 
*****END- F 
***** 



YDl 



IBIE 



YD4028KH201B1E 
IS NUMERIC 



***** 



MOVE 



^ipif^U YD1854KH201E1E 
QVr A04360 OF KH201B(STG1) 
Jl OP EF-ARBA 

B^it^fell YD1857KH201E1E 
Aa4360 Of KH201E(STG1) 
. . = JUiST^OF EF-AREA 

***** ^.ilP^fe=^^^te YD4044KH201E1E 
MOVE A14g90^0F KH201E(STG1) 
TO KD4044 OF EF-AREA 

YDI786KH20IE1E 
A17860 OF KH201E(STG1) 
TO KD1786 OF EP-AREA 

Y01787KH201B1E 
A17870 OF KH201E(STGl) 



***** (i^ 1 

MOVE 



***** 



MO 



***** 

MOV 



TO 
AU^ 



, KD1787 OF EF-AREA 
INO YD4037KH201E1E 
^^-980 OF KH201E(STG1) 
„-«r,TP KD4037 OF EF-AREA 
***** BBjUK^J YD1412KH201B1E 
MOVE A14130 OF KH201E(STG1) '^"'^"^'^"^ 
... . TO K01412 OF EF-AREA 

**»**ai,#3-H YD1084KH201E1E 
lOVf A10840 OF KH201E(STC1) 
TQ,Kpip84 OP EP-AREA 
Ij^E^ YDS568KH201E1E 
A11210 OF KH201E(STG1) 
^^Pjp TO KDS568 OF EF-ARBA 

******IF**LAYT*FLC**-** ^^^^ 
PERFORM VARYING SI FROM 1 BY 1 
UNTIL SI > 6 
***** LASTIDX CONTROL 

MOVE SI TO Tl 
***** SJ^filtt.^. 3- K 1 YE5501KH201EIE 
»»*»* IF A 1210 OF KH20IE(STC1) NOT /p'^"' 



***** ^Jf-i-m^k 
MOVE 
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— ^ W03EH2 

* W03EH2 (H D R) _ « 

SJ:ft*(i^lt^S| L18570 
UG0717t***»IF TKBN = CNS-BF AND KDU360 OF EF-AREA NOT = 'l* 
IF TKBN = CNS-EF 

IF KE5001 OF EF-ARBA(PI) IS NUMERIC 

OF EF-AREA IS NUMERIC 

OF EF-ARBA(PI) IS NUMERIC 

^ERO TO KD1857 OP EF-AREA 



AND KD1857 
AND KEC201 
IF PI = 
MOVE 
END-IF 
IF KE5001 OF 
COMPUTE 



EF-AREA(PI) NOT 
DK1857 OF EF-AREA 



ON SIZE 
MOVE 



IF ERR- 
MOVB 

MOVE 
END-IF 
-COMPUTE 



ERROR . 
ALL "9" 



= ZERO 
= KD1857 
+ KEC201 



OP EF-AREA 
OP EF-AREA(PI) 



Iff 

3019 to 



TO KD1857 OF EF-AREA 



END 
END-IF 
END-IF 
END-IF, 

IF ■ 

AND - 

\ND KEC251 OF EF-AREA 



-EF 

KD 1858 OF EF-AREA 
KE50O1 OF BF-AREAjPIj 



_ I HP 
MSG-NO 



L18580 



NOT = "1 
r.KDU360 OF EF 



IS 
IS 
IS 



IF 

END- 
IF 



NUMERIC 
NUMERIC 
NUMERIC 

•r 



ZERO TO KD1858 OF EP-ARBA 



AREA NOT = 

PI = I 
MOVE 
IF 

KE5001 OF EF-AREA(PI) NOT = ZERO 
COMPUTE KD1858 OP EF-AREA 
= KDI858 OF EP-ARBA, 
I KEC251 OF EF-AREA(PI) 
ON SIZE ERROR 
MOVE ALL "9" TO KD1858 OP BP-AREA 
IF ERR-INF = SPACE 
MOVE "1 TO ERR-INP 
3019 TO MSG-NO 



END 
END-IF 
D-IF 



MOVE 
END-IF 
-COMPUTE 



in 



= "1" 

DU360 OF EF-AREA = "1" 
MOVE KD1099 OF EP-AREA 
TO KD1858 OP BF-AREA 
END-IF 
END-IF 



END-IP. 

IF TKBN = CNS-Ef 



L18560 



TO KDI856 OF EP-AREA 



IF KE5001 OF EF-AREA(PI) IS NUMERIC 
AND KD1856 OF EF-ARBA IS NUMERIC 
AND KE1124 OF EF-AREA(PI) IS NUMERIC 
IF PI = 1 

MOVE ZERO 
END-IF 

IF KE500I OF EF-AREA(PI) NOT = ZERO 

COMPUTE KDI856 OF EF-AREA = KD1856 OF EF-AREA^ 
+ KE1124 OF EF-AREA(PI) * KE5001 OF EF-AREA(PI) 
ON SIZE ERROR 

HOVE ALL "9" TO KD1856 OF EF-AREA 
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W 0 3 



***** 



END- 
END-IF 
END-IF 
END-IF. 



F m-m = SPACE„ 
MOVE 1 TO ERR 
MOVE 3019 TO 
END-IF 
COMPUTE 



INF 
MSG-NO 



L10990 



Iffew - C'NS-EP 
IF KDU360 OF BF-ARBA NOT 
IF KD1099 OF EF-AREA. 

AND KE5001 OF " 
AND KEC251 OF 

IF PI = 1 

MOVE ZERO 

END- I P 

IF KB5001 OF BF-AREA(PI) NOT = ZERO 
COMPUTE KD1099 OF EF-AREA 



-AREA(Pl) 
-ARBA(PI) 



NUMERIC 
NUMBR' 
NUMER 



TO KD1099 OF EF-AREA 



END-COMPUTE 
END-IF 
BND-IF 
END-IF 
END-IF. 

IF TPBN = C^S-EF 
IF KD1854 OF EF-AREA 
AND KD1857 OF EF-AREA 
AND KD1099 OF EF-AREA 



KD1Q99 OF EF-AREA, , 
+ KEC251 OF EF-AREACPl) 
ON SIZE ERROR 
MOVE ALL ^9" TO KD1099 OF EF-AREA 
IF ERR-INF = SPACE 
MOVE I TO ERR-INF 
MOVE 3019 TO MSG-NO 
END-IF 



L18540 



IS NUMERIC 
IS NUMERIC 
IS NUMERIC 

COMPUTE KD1854 OF EF-AREA = KD1857 OF BP-AREA 

- KD1099 OF EF-AREA 

ON SIZE ERROR 

MOVE ALL "9 TO KD1854 OF EF-ARBA 
IF ERR-INF = SPACE 
MOVE "1" TO ERR-INF 
MOVE 3019 TO MSG-NO 
END-IF 
END-COMPUTE 
END-IF 

*****iFtil^^KP^ ^^^^^^ 

IF KD1855 OF EF-AREA IS NUMERIC 
AND KD1854 OF EF-AREA IS NUMER C 
AND WI0903 S NUMERjC 

IF (KS0901 OF ffBF-AREA = 1) 
IF KD1854 OF EF-AREA >= ZERO 
COMPUTE KD1855 OF EF-AREA 
= K01854 OP EF-AREA t 
ON SIZE ERROR 
MOVE ALL "9" TO KD1855 OF EF-AREA 
IF ERR-INF = SPACE 
MOVE "1" TO BRR-INF 
MOVE 3019 TO MSC-NO 
END-IF 
END-COMPUTE 
ELSE 

COMPUTE KD1855 OF EF-AREA , .„.„„„on n c 

= KD1854 OF EF-AREA » (1 t W10903) - 0.5 
ON SIZE ERROR 
MOVE ALL ^9" TO KD1855 IF EF-AREA 
IF ERR-INF = SPACE 



(1 + W10903) + 0.5 
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Y 17990 mo XV 



Y04360 ^it^S 



Y04360-START. 

IF ERR-INF NOT = "1' 
AND GAMEN-NO OF W0204(PS2) = "KH201B" 
!F PPKEY-NO OP W0204(PS2) = 1 
OR PPKEY-NO OF W0204(PS2) =12 , , 
MOVE ZERO TO A04360 OP KH201B(PS1) 



ELSE 

IF KD1857 OP W03-HD1R ' IS NUMERIC 
MOVE KD1857 OF W03-HD1R , 
TO A04360 OP KH201EtPSl) 



END-IP 
END-IP 
END- 1 P. 
Y04360-EXIT. 
EXIT. 



w 0 4 nas^ 



L04360 ^It^iS 



L04360-SEC SECTION. 
L04360-START. 

MOVE ZERO TO WK-KINGAKU. 
PERFORM VARYING PJ FROM 
UNT 
IF A0831 
AND A0922 
AND A0922 
AND A 1079 
AND A10791 



L PJ > 




6 




OF KH201 


IE( 


,PS1 1 


PJ 


OF KH20 


E( 


PSI 


'J 


OF KH20 


,B( 


PSl 


'J 


OF KH20 




PSl 


»J 


OP KH201 


[II 


PSl 


PJ 



1 BY 1 



NOT = SPACE 
IS NUMERIC 
NOT = ZERO 
IS NUMERIC 
NOT = ZERO 



AND A1672 
AND A1672 
CGMPU 



OF KH201E(PSl PJj 



IS NUMERIC 
NOT = ZERO 



_..J(F.. 

OP KH201B(PSI 
*E WK~K1NGAKU 
= WK-KINGAKU + A16721 OP KH201E(PS1 PJ) 
END-IP 
BND^PERFORM 

MOVE WK-KINGAKU TO A04360 OF KH201E(PS1). 
L04360-EXIT. 
EXIT. 
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